home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00832_SU-IN fi 2.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  913 b   |  25 lines
  1. on exitFrame
  2.   global gSurvolPrec, gCodEnv, gTextEnvL, gEtatEtud, g1erSprLoc, gMaxBoutons, gEtudPrec, gCDpath, gCodZoom, gIndEnv, gTitBestEnv
  3.   repeat with i = g1erSprLoc to gMaxBoutons
  4.     puppetSprite(i, 1)
  5.   end repeat
  6.   set monNumEnv to getPos(gCodEnv, gEtatEtud)
  7.   set monInd to getPos(gIndEnv, gCodZoom)
  8.   set maPos to (((monInd - 1) * 4) + monNumEnv) * 2
  9.   gScopeFi(SetTime, maPos)
  10.   set monTxt to getAt(gTextEnvL, monNumEnv)
  11.   if (the number of lines in monTxt = 1) or (gEtatEtud = "NEA") then
  12.     gBoutons(habille, g1erSprLoc, "VIDE")
  13.   end if
  14.   set the text of cast "TXT ENV" to line 1 of monTxt
  15.   set montitre to getAt(gTitBestEnv, maPos / 2)
  16.   set the text of cast "Titre Fi Env" to montitre
  17.   repeat with i = g1erSprLoc to gMaxBoutons
  18.     set the visible of sprite i to 1
  19.   end repeat
  20.   set the visible of sprite 3 to 1
  21.   set the visible of sprite 4 to 1
  22.   JukeBox(1, " ")
  23.   gScopeFi(visible, 1)
  24. end
  25.